<script>on arrangeget the rect of meput -1 into item 1 of itput item 3 of rect of this card + 1 into item 3 of itput item 4 of rect of this card + 1 into item 4 of itset rect of me to itend arrange</script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>476</left>
<top>50</top>
<right>511</right>
<bottom>78</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>15846</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpif cd fld "text" is empty thenanswer "Nothing to post !"exit mouseUpend ifset cursor to watchput cd fld "host" of card "setup" into theHost-- build & check the headerput "Relay-Version: version SN 1.1 28.8.91; site" && theHost & return into theHeaderput "Posting-Version: version SN 1.1 28.8.91; site" && theHost & return after theHeaderput "Path:" && theHost & return after theHeaderput "<" & the seconds & "@" & theHost & ">" into theMsgIDput "Message-ID: " & theMsgID & return after theHeaderput "Date: " && buildDate() & return after theHeaderrepeat with i = 2 to number of lines of cd fld "required"get line i of cd fld "required"if cd fld it is empty thenput it into missinganswer "Field " & quote & it & quote & " must be filled in."click at loc of cd fld missingexit mouseUpend ifput it && cd fld it & return after theHeaderend repeatrepeat with i = 1 to number of lines of cd fld "optional"get line i of cd fld "optional"if cd fld it is not empty thenput it && cd fld it & return after theHeaderend ifend repeat-- break the message into lines of less then 80 charactersrepeat with i = 1 to number of lines of cd fld "text"get line i of cd fld "text"repeat while the number of chars of it > 75put 75 into jrepeat while (j > 1) and (char j of it ≠ space)subtract 1 from jend repeatif j = 1 then put 75 into jput char 1 to j of it & return after theTextdelete char 1 to j of itend repeatput it & return after theTextend repeatget theHeader & return & theText & return & (cd fld "Signature" of cd "setup")postIt itunmark this card -- remove modification flagend mouseUpon postIt theTextsendLine "POST"get fetchLine()if first word of it is not "340" thenbeepput itexit postItend ifrepeat with i = 1 to number of lines of theTextset cursor to busyget line i of theTextif first char of it is "." then put "." before itsendLine itend repeatsendLine "."get fetchLine()put itif first word of it is not "240" then beepend postIton mouseEnterHCBalloon "Click here to post the message."end mouseEnterfunction buildDateconvert the seconds to dateItemsput it into theDateput item (item 7 of theDate) of "Sun,Mon,Tue,Wed,Thu,Fri,Sat" into dateStringput ", " & item 3 of theDate & "-" after dateStringput item (item 2 of theDate) of "Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec" after dateStringput "-" & (char 3 to 4 of item 1 of theDate) && item 4 of theDate & ":" & item 5 of theDate & ¬":" & item 6 of theDate after dateStringput " " & cd fld "Timezone" of cd "setup" after dateStringreturn dateStringend buildDate</script>
</part>
<part>
<id>5</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>0</left>
<top>0</top>
<right>89</right>
<bottom>37</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>required</name>
<script>on mouseEnterHCBalloon "These fields must be filled in."end mouseEnter</script>
</part>
<part>
<id>14</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>89</left>
<top>0</top>
<right>512</right>
<bottom>14</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>From:</name>
<script>on closeFieldif cd fld "Reply-To:" is empty then put me into cd fld "Reply-To:"end closeFieldon mouseEnterHCBalloon "Enter your email address here."end mouseEnter</script>
</part>
<part>
<id>15</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>89</left>
<top>11</top>
<right>512</right>
<bottom>25</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Subject:</name>
<script></script>
</part>
<part>
<id>16</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>89</left>
<top>22</top>
<right>512</right>
<bottom>36</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Newsgroups:</name>
<script>on mouseEnterHCBalloon "Separate multiple groups by a comma."end mouseEnter</script>
</part>
<part>
<id>21</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>89</left>
<top>42</top>
<right>473</right>
<bottom>56</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Sender:</name>
<script></script>
</part>
<part>
<id>17</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>89</left>
<top>53</top>
<right>473</right>
<bottom>67</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Reply-To:</name>
<script>on mouseEnterHCBalloon "Enter your email address here if the ┬┤From:┬┤ field is eaten by the posting software."end mouseEnter</script>
</part>
<part>
<id>18</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>89</left>
<top>64</top>
<right>473</right>
<bottom>78</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Followup-To:</name>
<script>on mouseEnterHCBalloon "Redirect replies to these newsgroups."end mouseEnter</script>
</part>
<part>
<id>19</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>89</left>
<top>75</top>
<right>473</right>
<bottom>89</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Expires:</name>
<script></script>
</part>
<part>
<id>20</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>0</left>
<top>42</top>
<right>89</right>
<bottom>122</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>optional</name>
<script>on mouseEnterHCBalloon "These fields are optional."end mouseEnter</script>
</part>
<part>
<id>23</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>89</left>
<top>86</top>
<right>473</right>
<bottom>100</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>References:</name>
<script></script>
</part>
<part>
<id>24</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>89</left>
<top>97</top>
<right>473</right>
<bottom>111</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Distribution:</name>
<script></script>
</part>
<part>
<id>25</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>89</left>
<top>108</top>
<right>473</right>
<bottom>122</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Organization:</name>
<script></script>
</part>
<part>
<id>29</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>477</left>
<top>88</top>
<right>510</right>
<bottom>116</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>2162</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpif the marked of this card thenanswer "Discard the message ?" with "Yes" or "No"if it is not "Yes" then exit mouseUpend ifput empty into cd fld "text"put empty into cd fld "Subject:"put empty into cd fld "Newsgroups:"repeat with i = 3 to 5get line i of cd fld "optional"put empty into cd fld itend repeatgo to card "browser"end mouseUpon mouseEnterHCBalloon "Discard the message and return to the news browser."end mouseEnter</script>
<text><span class="style4">ntroduction</span><span class="style1">This is Yet Another Newsreader. I do not claim it´s a better product than the other available Freeware / Shareware newsreaders. However, since newsreaders, like editors, have to satisfy differing personal tastes I have decided to build my own. And as it is a HyperCard stack, you can easily tailor it to </span><span class="style8">your</span><span class="style1"> requirements.</span><span class="style4">Hints</span><span class="style1">Turn on Balloon Help for a description of the various buttons and fields. Commands for posting, group manipulation, etc. are listed under the </span><span class="style9">News</span><span class="style1"> menu of the news browser card. Ask your network/news administrator if you are unfamiliar with netnews or IP networking.The watch cursor appears when StackedNews is waiting for the server to respond. This </span><span class="style3">might</span><span class="style1"> also be an indication that the link has gone down. In this case the script can be stopped as usual with Command-Period.This stack consideres all messages that have appeared in the subject field to be read. In other words, it only remembers the highest message number seen so far.</span><span class="style4">Requirements</span><span class="style8">HyperCard 2.0</span><span class="style1"> or later, </span><span class="style8">System 7.0</span><span class="style1"> or later (you may be able to use it on earlier systems but this is not supported), </span><span class="style8">MacTCP</span><span class="style1"> (and </span><span class="style8">MacTCP Tool</span><span class="style1"> if you are using theCTB).</span><span class="style4">Changes</span><span class="style1">New in 1.1: Better handling of slow servers. Better pre-setting of header fields when replying. Ability to operate CTB-less.Fixes in 1.1.1: Better handling of the 'Server' and 'Exclude' fields in the Configuration card. Better error message on unresolvable hostnames.New in 1.2: Option-click the article field to do a Rot13 transformation. Inhibit multiple insertions of a group into the groups field. Some user interface tweaking for scrolling the group and subject fields. Some timeout constant adjustment. Added an archival stack for storing news articles.New in 1.3: Handle more groups on the configuration card. Some user interface improvements in the browser (mainly menu handling).New in 1.4: Better handling of unread messages, when the accumulated size of the subject lines is greater 30kB. Ask before discarding composed but unsent messages.</span><span class="style4">Warning</span><span class="style1">This stack has only been tested with HyperCard 2.x under Sytem 7.0 on a Mac IIfx. Since it uses Balloon Help, the CTB and a card size larger than the standard 9" size it might not work well in other configurations. You have been warned.</span><span class="style4">Copying</span><span class="style1">This stack may be freely copied for non commercial purposes only. Let me know about bugs, misfeatures or features you would like to see implemented. </span><span class="style4">Credits</span><span class="style1">HCBalloon 1.2 by Len Saaf ©1991</span><span class="style12"></span><span class="style1">MacTCP XCMDs and XFNCs © Apple Computer, Inc.</span><span class="style6"></span><span class="style1">From the HC MacTCP Info file of the HyperCard MacTCP Toolkit:</span><span class="style3">In order to use any part of the source or object code contained in this ToolKit in a commercial product, you must first obtain a license from Apple Computer.</span><span class="style11"></span><span class="style12"></span><span class="style1">CTB XCMDs and XFNCs © Apple Computer, Inc.From the Read Me First file of the HyperCard CTB Toolkit:</span><span class="style3">A license from Apple is required if source code, XCMDs, or XFCNs supplied with this product is to be used in commercial applications. Contact Apple Software Licensing for more information.</span><span class="style7">Dipl.Ing. Georg Gollmann gollmann@edvz.tuwien.ac.atTU-Wien, EDV-Zentrum +43 (222) 58801/3611 (voice)Gusshausstr. 25 +43 (222) 505 68 49 (fax)A-1040 Wien, Austria</span></text>
</content>
<name>help</name>
<script></script>
</card>
card_4116.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseEnterHCBalloon "Enter the domain name of the news server here."end mouseEnteron closeFieldCommunicationsChangedend closeField</script>
</part>
<part>
<id>8</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>42</left>
<top>227</top>
<right>214</right>
<bottom>249</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Fetch Newsgroups List</name>
<script>on mouseUpsendLine "LIST"get fetchLine()if first char of it is not "2" thenput itexit mouseUpend ifput empty into theGroupslock screenrepeatset cursor to busyget fetchLine()if first char of it is "." then exit repeatget first word of itput it & return after theGroupsend repeatsort theGroupsdelete last char of theGroups -- get rid of trailing return-- distribute to the "Newsgroups n" fieldsget number of lines of theGroupsput round(it / last word of cd fld "Counter") + 1 into splitPointrepeat with i = 1 to last word of cd fld "Counter"put line (splitPoint * (i - 1) + 1) to (splitPoint * i) ¬of theGroups into cd fld ("NewsGroups" && i)end repeatend mouseUpon mouseEnterHCBalloon "Click to fetch the current list of newsgroups from the server."end mouseEnter</script>
</part>
<part>
<id>14</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>22</left>
<top>97</top>
<right>87</right>
<bottom>113</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>18</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>322</left>
<top>90</top>
<right>434</right>
<bottom>111</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>sortSubjects</name>
<script></script>
</part>
<part>
<id>22</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>347</left>
<top>322</top>
<right>411</right>
<bottom>337</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>26</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>81</left>
<top>322</top>
<right>347</right>
<bottom>337</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Host</name>
<script>on mouseEnterHCBalloon "Enter the domain name of your machine here."end mouseEnter</script>
</part>
<part>
<id>25</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>411</left>
<top>322</top>
<right>497</right>
<bottom>337</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Timezone</name>
<script>on mouseEnterHCBalloon "Enter your timezone here."end mouseEnter</script>
</part>
<part>
<id>27</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>7</left>
<top>322</top>
<right>81</right>
<bottom>337</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>28</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>475</left>
<top>0</top>
<right>500</right>
<bottom>24</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1012</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpgo to card "browser"end mouseUpon mouseEnterHCBalloon "Return to the news browser."end mouseEnter</script>
</part>
<part>
<id>29</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>13</left>
<top>336</top>
<right>81</right>
<bottom>350</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>30</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>14</left>
<top>350</top>
<right>499</right>
<bottom>429</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Signature</name>
<script>on mouseEnterHCBalloon "The contents of this field will be appended to all messages you send."end mouseEnter</script>
</part>
<part>
<id>31</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>0</left>
<top>300</top>
<right>107</right>
<bottom>315</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>32</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>0</left>
<top>20</top>
<right>127</right>
<bottom>35</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>33</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>39</left>
<top>64</top>
<right>172</right>
<bottom>79</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>Sort Subject Lines</name>
<script>on mouseEnterHCBalloon "Ckeck this box to sort the subject lines in the news browser."end mouseEnter</script>
</part>
<part>
<id>39</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>443</left>
<top>2</top>
<right>474</right>
<bottom>26</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>25002</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUphelpend mouseUpon mouseEnterHCBalloon "Display help information."end mouseEnter</script>
</part>
<part>
<id>42</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>278</left>
<top>7</top>
<right>366</right>
<bottom>22</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>Use MacTCP</name>
<script>on mouseEnterHCBalloon "Choose this option to just use MacTCP."end mouseEnteron mouseUpset hilite of btn "Use CTB" to not the hilite of meCommunicationsChangedend mouseUp</script>
</part>
<part>
<id>43</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>184</left>
<top>7</top>
<right>253</right>
<bottom>22</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>Use CTB</name>
<script>on mouseEnterHCBalloon "Choose this option to use the Communications Toolbox. " & ¬"You will need MacTCP and MacTCP Tool."end mouseEnteron mouseUpset hilite of btn "Use MacTCP" to not the hilite of meCommunicationsChangedend mouseUp</script>
<script>on mouseUplock screenhideCurrentFieldget first word of cd fld "Counter"subtract 1 from itif it < 1 then put last word of cd fld "Counter" into itput it into first word of cd fld "Counter"showCurrentFieldunlock screen with visual effect wipe rightend mouseUp</script>
</part>
<part>
<id>46</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>399</left>
<top>277</top>
<right>420</right>
<bottom>299</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>16560</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUplock screenhideCurrentFieldget first word of cd fld "Counter"add 1 to itif it > last word of cd fld "Counter" then put 1 into itput it into first word of cd fld "Counter"showCurrentFieldunlock screen with visual effect wipe leftend mouseUp</script>
<script>on CommunicationsChangedanswer "You have to reset the connection for the change to take effect."end CommunicationsChangedon selectAGroupset cursor to watchget the clickLineset textStyle of it to italicput the value of it into groupNameif groupName is in cd fld "groups" of card "browser" thenget cd fld "groups" of card "browser"repeat with i = 1 to number of lines of itif groupName = first word of line i of it then exit selectAGroupend repeatend ifif cd fld "groups" of card "browser" is not empty then ¬put return after cd fld "groups" of card "browser"put groupName & " " after cd fld "groups" of card "browser"sort cd fld "groups" of card "browser"end selectAGroupon selectBalloonHCBalloon "Click on a group to subscribe to it."end selectBalloonon showCurrentFieldshow cd fld ("Newsgroups" && first word of cd fld "Counter")end showCurrentFieldon hideCurrentFieldhide cd fld ("Newsgroups" && first word of cd fld "Counter")end hideCurrentField</script>
</card>
card_4571.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseDownselectGroup the clickLineend mouseDownon selectGroup whichLineglobal theGroup, theSubjectif value of whichLine is empty thenbeepexit selectGroupend ifget second word of whichLineput the optionKey = down into catchUpset textStyle of first word of line theGroup of me to plainset textStyle of first word of line it of me to boldput it into theGroupadjustScroll whichLinesend "closing" to cd fld "subjects"lock screenset cursor to busyget first word of line theGroup of me -- that´s the group namesendLine "GROUP" && itget fetchLine()if first char of it is not "2" thenput itexit selectGroupend ifput second word of line theGroup of me into lowBoundif lowBound is empty then put fourth word of it after line theGroup of meelse put fourth word of it into second word of line theGroup of meset textStyle of second word of line theGroup of me to italicupdateMenuif catchUp then exit selectGroup -- all doneput fetchText("XHDR subject" && max(lowBound, third word of it) + 1 ¬& "-" & fourth word of it) into unReadif the number of chars of unRead > 30000 thenput char 1 to 30000 of unRead into unReaddelete last line of unReadput first word of last line of unRead into second word of line theGroup of meanswer "Only some of the unread messages can be displayed. " & ¬"Reselect the group when you are ready to see the rest."end ifif last char of unRead is return then delete last char of unReadput unRead into cd fld "subjects"if the hilite of btn "Sort Subject Lines" of cd "setup" then ¬send "sortSubjects" to cd fld "subjects"end selectGroupon closingglobal theGroupif theGroup is not empty then set textStyle of first word of line theGroup of me to plainput empty into theGroupsend "closing" to cd fld "subjects" of card "browser"end closingon deleteGroupglobal theGroupdelete line theGroup of meif last char of me is return then delete last char of meput empty into theGroupsend "closing" to cd fld "subjects"end deleteGroupon unreadGroupglobal theGroupanswer "Unread how much ?" with "Cancel" or "Everything" or "30 Articles"if it is "Everything" then put empty into second word of line theGroup of meelse if it is not "Cancel" thenget second word of line theGroup of meif it is not empty thensubtract 30 from itif it < 0 then put 0 into itput it into second word of line theGroup of meend ifend ifend unreadGroupon mouseEnterHCBalloon "Click a group to display its contents, Option-click to catch up." ¬&& "Use Shift-UpArrow and Shift-DownArrow to change the group."end mouseEnter-- eos</script>
</part>
<part>
<id>2</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>164</left>
<top>65535</top>
<right>513</right>
<bottom>73</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>subjects</name>
<script>on mouseDownselectArticle the clickLineend mouseDownon sortSubjectsset cursor to busylock screenput empty into temprepeat with i = 1 to number of lines of cd fld "subjects"get line i of cd fld "subjects"if second word of it is "re:" thenput space & word 1 to 2 of it after itdelete word 1 to 2 of itelseput space & word 1 of it after itdelete word 1 of itend ifput it & return after tempend repeatset cursor to busysort tempput empty into cd fld "subjects"set cursor to busyrepeat with i = 1 to number of lines of tempget line i of tempif last word of it is "re:" thenput last word of it & space before itdelete last word of itend ifput last word of it & space before itdelete last word of itput it & return after cd fld "subjects"end repeatdelete last char of cd fld "subjects" -- the final "return"end sortSubjectson closingglobal theSubjectput empty into meput empty into theSubjectsend "closing" to cd fld "article" of card "browser"end closingon selectArticle whichLineglobal theSubject, theArticle, postingEnabledif value of whichLine is empty thenbeepexit selectArticleend ifif theSubject is not empty then set textStyle of theSubject to plainset textStyle of whichLine to "bold"put whichLine into theSubjectadjustScroll whichLinesend "closing" to cd fld "article"lock screenset cursor to busyget first word of (value of whichLine)if the optionKey is down thenput fetchText("ARTICLE" && it) into theArticleelseput fetchText("BODY" && it) into theArticleend ifif the number of chars of theArticle < 30000 thenput theArticle into cd fld "article"put empty into theArticleelseput " ••••• Display of article is truncated •••••" ¬& return & return into cd fld "article"put line 1 to 200 of theArticle after cd fld "article"set textStyle of word 2 to 6 of cd fld "article" to boldend ifupdateMenuend selectArticleon mouseEnterHCBalloon "Click a subject to display the Article. Option-Click to see" ¬&& "the header as well. Use UpArrow and DownArrow to change the article."end mouseEnter-- eos</script>
</part>
<part>
<id>3</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>65535</left>
<top>72</top>
<right>513</right>
<bottom>439</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>article</name>
<script>on closingglobal theArticleput empty into theArticleput empty into meupdateMenuend closingon saveglobal theSubject, theArticleget value of theSubjectdelete first word of itask file "Save article to:" with itif it is empty then exit saveput it into theFileopen file theFileif theArticle is empty then write me to file theFileelse write theArticle to file theFileclose file theFileend saveon mouseUpif the optionKey is up then pass mouseUpput Rot13(me) into meend mouseUpon mouseEnterHCBalloon "Option-Click to do a Rot13 decryption of the article."end mouseEnter-- eos</script>
</part>
<name>browser</name>
<script>on arrowKey whichKeyglobal theGroup, theSubjectif whichKey is left or whichkey is right then pass arrowKeyif the shiftKey is down thenget theGroupput "groups" into theFieldput "selectGroup" into theCommandelseget theSubjectput "subjects" into theFieldput "selectArticle" into theCommandend ifif it is empty then -- no selectionbeepexit arrowKeyend ifif number of words of it is 1 then ¬get "line" && it && "of card field 1"if whichKey is down thenif word 2 of it < number of lines of cd fld theField thenadd 1 to word 2 of itsend theCommand && quote & it & quote to cd fld theFieldelse beepelse if whichKey is up thenif word 2 of it > 1 thensubtract 1 from word 2 of itsend theCommand && quote & it & quote to cd fld theFieldelse beepend ifend arrowKeyon adjustScroll whichLineput second word of whichLine into theLineput word 4 to 6 of whichLine into theFieldput the scroll of theField into theScrollput the textHeight of theField into theHeightif theLine < (theScroll / theHeight) + 2 thenset the scroll of theField to (theScroll - theHeight)else if theLine > (theScroll + height of theField) / theHeight - 1 thenset the scroll of theField to (theScroll + theHeight)end ifend adjustScroll on arrangeFieldsput the rect of this card into cardRectget the rect of cd fld "groups"put item 3 of it into rightput item 4 of it into bottomput -1 into item 1 of itput -1 into item 2 of itset the rect of cd fld "groups" to itget "0,-1,0,0"put right - 1 into item 1 of itput item 3 of cardRect + 1 into item 3 of itput bottom into mtem 4 of itset the rect of cd fld "subjects" to itget "-1,0,0,0"put bottom - 1 into item 2 of itput item 3 of cardRect + 1 into item 3 of itput item 4 of cardRect + 1 into item 4 of itset the rect of cd fld "article" to itend arrangeFieldsfunction fetchText theCommandput empty into theTextsendLine theCommandget fetchLine()if first char of it is not "2" thenput itreturn theTextend ifrepeatget fetchLine(60)if first char of it is "." thendelete first char of itif first char of it is return then exit repeatend ifif it is not empty thenput it after theTextset cursor to busyelse set cursor to watchend repeatreturn theTextend fetchText------------- Menu Handling ---------------on openCardinstallMenuend openCardon resumeStackinstallMenupass resumeStackend resumeStackon closeCardremoveMenuend closeCardon suspendStackremoveMenupass suspendStackend suspendStackon installMenuremoveMenucreate menu "News"put "Archive Article,Save Article…,Post,Reply,-,Delete Group,Unread Group…,-,Configure,Reset Connection" ¬into menu "News" with menuMessages "archive,save,post,reply,,deleteGroup,unreadGroup,,configure,reset"set the commandChar of menuItem "Save Article…" of menu "News" to "S"set the commandChar of menuItem "Reply" of menu "News" to "R"updateMenuend installMenuon removeMenuif there is a menu "News" then delete menu "News"end removeMenuon updateMenuglobal postingEnabled, theGroup, theSubject, theArticleif there is no menu "News" then exit updateMenuif postingEnabled thenenable menuItem "Post" of menu "News"if theSubject is not empty thenenable menuItem "Reply" of menu "News"end ifelsedisable menuItem "Post" of menu "News"disable menuItem "Reply" of menu "News"end ifif theSubject is not empty thenenable menuItem "Save Article…" of menu "News"if theArticle is empty then enable menuItem "Archive Article" of menu "News"else disable menuItem "Archive Article" of menu "News" -- won´t fit into a fieldelsedisable menuItem "Archive Article" of menu "News"disable menuItem "Save Article…" of menu "News"disable menuItem "Reply" of menu "News"end ifif theGroup is not empty thenenable menuItem "Delete Group" of menu "News"enable menuItem "Unread Group…" of menu "News"elsedisable menuItem "Delete Group" of menu "News"disable menuItem "Unread Group…" of menu "News"end ifend updateMenuon archiveglobal theGroup, theSubject, theArticleset cursor to watchput first word of line theGroup of cd fld "groups" into groupNameput the value of theSubject into subjectNamedelete first word of subjectNameput cd fld "Article" into bodylock screenpush cardgo to last card of stack "NewsArchive" in a new windowdoMenu "New Card"put groupName into field "Group"put subjectName into field "Subject"put body into field "Article"mark card "Index" -- signal index updatepop cardunlock screenend archiveon savesend "save" to cd fld "article"end saveon configurego to card "setup"end configureon resetcloseStackconnectinstallMenuend reseton replyglobal theSubjectget value of theSubjectput first word of it into msgIDdelete first word of itif first word of it is not "Re:" then put "Re: " before itput it into cd fld "Subject:" of cd "posting"put fetchText("HEAD" && msgID) into theHeaderput extract(theHeader, "Reply-To:") into theAuthorif theAuthor is empty then put extract(theHeader, "From:") into theAuthorget extract(theHeader, "Message-ID:")put "In article" && it && theAuthor && "writes:" & ¬return into cd fld "text" of cd "posting"put extract(theHeader, "References:") && it into ¬cd fld "References:" of cd "posting"get cd fld "article"repeat with i = 1 to number of lines of itput "> " before line i of itend repeatput char 1 to 30000 of it after cd fld "text" of cd "posting"get extract(theHeader, "Followup-To:")if it is empty then get extract(theHeader, "Newsgroups:")post itend replyfunction extract theHeader, theItemrepeat with i = 1 to number of lines of theHeaderget line i of theHeaderif first word of it is theItem thendelete first word of itput it into theTextrepeat while first char of line (i + 1) of theHeader is spaceadd 1 to iput return & line i of theHeader after theTextend repeatreturn theTextend ifend repeatend extracton post itglobal theGroupif (it is empty) and (theGroup is not empty) thenget line theGroup of cd fld "groups"delete second word of it -- message number if presentend ifput it into cd fld "Newsgroups:" of cd "posting"go to card "posting"end poston deleteGroupsend "deleteGroup" to cd fld "groups"end deleteGroupon unreadGroupsend "unreadGroup" to cd fld "groups"end unreadGroup-- end of script</script>
